﻿Imports JuegosLanBackend
Public Class RegistrarEmpleado

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a = Me.nametxt.Text
        Dim b = Me.apellidotxt.Text
        Dim c = Me.dnitxt.Text
        Dim d
        If sexo1.Checked = True Then
            d = sexo1.Text
        Else
            d = sexo2.Text
        End If
        Dim f = Me.direcciontxt.Text
        Dim g = Me.telefonotxt.Text
        Dim h = Me.fechatxt.Text

        Dim part As New EmpleadoNegocio()
        part.insertar(a, b, c, f, g, d, h)
        MsgBox("Se inserto con exito")

        nametxt.Clear()
        apellidotxt.Clear()
        dnitxt.Clear()
        direcciontxt.Clear()
        telefonotxt.Clear()
        fechatxt.Clear()
    End Sub
End Class